home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / vision / programm / paintshp / source / ps_acc.lst < prev   
Encoding:
File List  |  1994-09-22  |  1.2 KB  |  45 lines
  1. $m4096
  2. ap_id&=APPL_INIT()
  3. IF ap_id&=0
  4.   ALERT 3," | Dieses Accessory läßt sich| nicht als Programm starten ! ",1,"Abbruch",dummy&
  5.   EDIT
  6. ENDIF
  7. me_id&=MENU_REGISTER(ap_id&,"  Zeit & Datum ")
  8. DO
  9.   ~EVNT_MESAG(0)
  10.   IF MENU(1)=40
  11.     logbase%=XBIOS(3)
  12.     IF {logbase%}<>18011972
  13.       ALERT 3," | Dieses Accessory läuft nur | zusammen mit PaintShop !",1,"Abbruch",dummy&
  14.     ELSE
  15.       curr%={logbase%+4}
  16.       scr_1%={logbase%+8}
  17.       scr_2%={logbase%+12}
  18.       help1%={logbase%+20}
  19.       dstruc%={logbase%+52}
  20.       ' sichtbarer Bildschirm in den Hilfsspeicher
  21.       BMOVE logbase%,help1%,32000
  22.       ' aktuelles Bild auf den Bildschirm holen
  23.       ' (Doppelseite wird NICHT beachtet !)
  24.       BMOVE curr%,logbase%,32000
  25.       TEXT 150,100,TIME$
  26.       TEXT 150,122,DATE$
  27.       ' verändertes Bild abspeichern
  28.       BMOVE logbase%,curr%,32000
  29.       ' alten Bildschirm aus dem Hilfsspeicher holen
  30.       BMOVE help1%,logbase%,32000
  31.       ' Undo ermöglichen
  32.       undo%={dstruc%+168}
  33.       IF curr%=scr_1%
  34.         {undo%}=0
  35.       ELSE IF curr%=scr_2%
  36.         {undo%}=1
  37.       ELSE
  38.         {undo%}=2
  39.       ENDIF
  40.       ' <Esc> simulieren
  41.       KEYPRESS &H1001B
  42.     ENDIF
  43.   ENDIF
  44. LOOP
  45.